long exchange(long *xp,
